home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
prg_basi
/
n_b-v200.zip
/
NBT1
/
DMO
/
DASLOGO.DMO
< prev
next >
Wrap
Text File
|
1996-03-11
|
22KB
|
315 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME DASLOGO .DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$INCLUDE "DAS-NB01.INC"
$INCLUDE "DAS-NBT1.INC"
TBoxFILL 1, 1, 25, 80, 88, 112 ' PUT SOME STUFF ON THE SCREEN
DELAY 2 ' PAUSE FOR EFFECT
DASoftLOGO 0 ' DO IT!
' ───────────────────────────────────────────────────────────────────────────
SUB DASoftLOGO ( BYVAL Pause! ) LOCAL PUBLIC
LOCAL C?, D?(), I%, R?, S?(), T$(), X%
RESTORE DASoftDATA '┌─────────────────────────────
COLOR 7,0,0 '│
DIM D?(191), S?(3999), T$(3) '│
DACreadArr D?(0), 64 '│ hold original DAC settings
Fade2Arr S?(0), 64 '│ fade out!
DELAY .5 '│
FOR X% = 0 TO 3999 : READ S?(X%) : NEXT '│ get the screen data
QcopyArr S?(0), BYVAL &hB8000000, 4000 '│ B800:0000 or Apage 0
Fade2Arr D?(0), 64 '│ fade in
'────────────────────────────────────────────┤
T$(3) = " + " '│ little ┐ English lesson
T$(2) = " ─┼─ " '│ big │
T$(1) = " │ ─┼─ │ " '│ bigger │
T$(0) = " ║ ═╬═ ║ " '│ biggest ┘
PLAY "MBN79" '│ twinkle noise
C? = 51 '│ 1st star column
FOR R? = 2 TO 17 STEP 15 '│ 2 stars ( R? = row )
FOR I% = -3 TO 3 '│ 8 reps for each star
SetDelay 36 '│ timing
X% = ABS( I% ) '│
TprintTEXT R?,C?,3,3,T$(X%),0,0,0,15 '│
EndDelay '│
IF I% = 0 THEN Mdelay 120 '│ pause at 1/2 way mark
NEXT '│
Tprint R?+1, C?+1, " ", 0 '│ clean off "+"
IF R? = 17 THEN EXIT FOR '│
C? = 72 : Mdelay 200 : PLAY "N82" '│ new col, pause, make noise
NEXT '│
IF Pause! > 0 THEN DELAY Pause! '│ requested pause
' ───────────────────────────────────────────┴─────────────────────────────
DASoftDATA:
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,176,009,176,009,176,009,176,009,176,009
DATA 221,009,176,009,176,009,176,009,176,009,176,009,176,009,221,009
DATA 196,011,191,011,032,015,032,015,032,015,032,015,032,015,032,015
DATA 176,009,176,009,176,009,176,009,176,009,221,009,196,011,191,011
DATA 032,015,032,015,032,015,032,015,032,015,032,015,176,009,176,009
DATA 176,009,176,009,176,009,176,009,176,009,176,009,176,009,176,009
DATA 221,009,191,011,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 176,009,176,009,176,009,176,009,221,009,191,011,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,192,011,196,011,176,009,176,009,176,009
DATA 221,009,191,011,192,011,196,011,196,011,176,009,176,009,176,009
DATA 221,009,192,011,191,011,032,015,032,015,032,015,032,015,176,009
DATA 176,009,176,009,221,009,176,009,176,009,176,009,221,009,192,011
DATA 191,011,032,015,032,015,032,015,032,015,176,009,176,009,176,009
DATA 221,009,218,011,196,011,196,011,196,011,196,011,176,009,176,009
DATA 176,009,221,009,191,011,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,176,009
DATA 176,009,176,009,221,009,176,009,176,009,221,009,191,011,176,009
DATA 221,009,191,011,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,177,009,177,009,177,009
DATA 221,009,179,011,032,015,032,015,032,015,032,015,177,009,177,009
DATA 177,009,221,009,179,011,032,015,032,015,032,015,177,009,177,009
DATA 177,009,221,009,218,011,032,015,177,009,177,009,177,009,221,009
DATA 179,011,032,015,032,015,032,015,177,009,177,009,177,009,221,009
DATA 218,011,217,011,032,015,032,015,032,015,032,015,032,015,192,011
DATA 196,011,196,011,217,011,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,177,009
DATA 177,009,221,009,179,011,192,011,196,011,196,011,217,011,177,009
DATA 177,009,221,009,191,011,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,177,009,177,009,177,009
DATA 221,009,179,011,032,015,032,015,032,015,032,015,177,009,177,009
DATA 177,009,221,009,179,011,032,015,032,015,032,015,177,009,177,009
DATA 177,009,221,009,179,011,032,015,177,009,177,009,177,009,221,009
DATA 192,011,191,011,032,015,032,015,192,011,177,009,177,009,177,009
DATA 221,009,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,177,009,177,009,177,009
DATA 177,009,177,009,221,009,191,011,032,015,177,009,177,009,177,009
DATA 177,009,177,009,221,009,191,011,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,176,025,176,025,176,025
DATA 221,009,179,011,032,015,032,015,032,015,032,015,176,025,176,025
DATA 176,025,221,009,179,011,032,015,032,015,176,025,176,025,176,025
DATA 221,009,218,011,217,011,032,015,032,015,176,025,176,025,176,025
DATA 221,009,179,011,032,015,032,015,032,015,192,011,176,025,176,025
DATA 176,025,176,025,176,025,176,025,176,025,176,025,176,025,176,025
DATA 221,009,191,011,032,015,032,015,032,015,032,015,176,025,176,025
DATA 176,025,176,025,221,009,191,011,032,015,192,011,196,011,176,025
DATA 176,025,221,009,218,011,217,011,032,015,192,011,196,011,176,025
DATA 176,025,221,009,218,011,217,011,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,176,025,176,025,176,025
DATA 221,009,179,011,032,015,032,015,032,015,032,015,176,025,176,025
DATA 176,025,221,009,179,011,032,015,032,015,176,025,176,025,176,025
DATA 176,025,176,025,176,025,176,025,176,025,176,025,176,025,176,025
DATA 221,009,192,011,191,011,032,015,032,015,032,015,192,011,196,011
DATA 196,011,196,011,196,011,196,011,196,011,191,011,176,025,176,025
DATA 176,025,221,009,191,011,032,015,032,015,176,025,176,025,221,009
DATA 218,011,176,025,176,025,221,009,191,011,032,015,032,015,176,025
DATA 176,025,221,009,179,011,032,015,032,015,032,015,032,015,176,025
DATA 176,025,221,009,179,011,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,177,025,177,025,177,025
DATA 221,009,179,011,032,015,032,015,032,015,032,015,177,025,177,025
DATA 177,025,221,009,179,011,032,015,177,025,177,025,177,025,221,009
DATA 218,011,196,011,196,011,196,011,196,011,196,011,177,025,177,025
DATA 177,025,221,009,179,011,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,192,011,032,015,177,025
DATA 177,025,177,025,221,009,191,011,032,015,177,025,177,025,221,009
DATA 179,011,177,025,177,025,221,009,179,011,032,015,032,015,177,025
DATA 177,025,221,009,179,011,032,015,032,015,032,015,032,015,177,025
DATA 177,025,221,009,179,011,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,177,025,177,025,177,025
DATA 221,009,179,011,032,015,032,015,032,015,177,025,177,025,177,025
DATA 221,009,218,011,217,011,032,015,177,025,177,025,177,025,221,009
DATA 179,011,032,015,032,015,032,015,032,015,032,015,177,025,177,025
DATA 177,025,221,009,179,011,032,015,032,015,177,025,177,025,177,025
DATA 221,009,032,015,032,015,032,015,032,015,032,015,177,025,177,025
DATA 177,025,221,009,218,011,217,011,032,015,177,025,177,025,221,009
DATA 179,011,177,025,177,025,221,009,179,011,032,015,032,015,177,025
DATA 177,025,221,009,179,011,032,015,032,015,032,015,032,015,177,025
DATA 177,025,221,009,177,025,177,025,221,009,191,011,032,015,032,015
DATA 032,015,032,015,032,015,177,025,177,025,177,025,177,025,177,025
DATA 221,009,177,025,177,025,177,025,177,025,177,025,177,025,221,009
DATA 218,011,217,011,032,015,177,025,177,025,177,025,177,025,177,025
DATA 221,009,191,011,032,015,032,015,032,015,177,025,177,025,177,025
DATA 177,025,177,025,221,009,191,011,032,015,192,011,177,025,177,025
DATA 177,025,177,025,177,025,177,025,177,025,177,025,177,025,177,025
DATA 221,009,218,011,217,011,032,015,032,015,192,011,177,025,177,025
DATA 177,025,177,025,221,009,218,011,217,011,032,015,032,015,177,025
DATA 177,025,221,009,179,011,032,015,032,015,032,015,032,015,032,015
DATA 177,025,177,025,177,025,221,009,218,011,217,011,032,015,032,015
DATA 032,015,032,015,032,015,192,011,196,011,196,011,196,011,196,011
DATA 217,011,032,015,192,011,196,011,196,011,196,011,196,011,196,011
DATA 217,011,032,015,032,015,192,011,196,011,196,011,196,011,196,011
DATA 196,011,217,011,032,015,032,015,032,015,192,011,196,011,196,011
DATA 196,011,196,011,196,011,217,011,032,015,032,015,192,011,196,011
DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
DATA 196,011,217,011,032,015,032,015,032,015,032,015,192,011,196,011
DATA 196,011,196,011,196,011,217,011,032,015,032,015,032,015,192,011
DATA 196,011,196,011,217,011,032,015,032,015,032,015,032,015,032,015
DATA 192,011,196,011,196,011,196,011,217,011,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,220,012,219,012,223,012,220,012
DATA 219,012,223,012,220,012,219,012,223,012,220,012,219,012,223,012
DATA 220,012,219,012,223,012,220,012,219,012,223,012,220,012,219,012
DATA 223,012,220,012,219,012,223,012,220,012,219,012,223,012,220,012
DATA 219,012,223,012,220,012,219,012,223,012,220,012,219,012,223,012
DATA 220,012,219,012,223,012,220,012,219,012,223,012,220,012,219,012
DATA 223,012,220,012,219,012,223,012,220,012,219,012,223,012,220,012
DATA 219,012,223,012,220,012,219,012,223,012,220,012,219,012,223,012
DATA 220,012,219,012,223,012,220,012,219,012,223,012,220,012,219,012
DATA 223,012,220,012,219,012,223,012,032,015,191,011,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,196,011,196,011,196,011
DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
DATA 196,011,196,011,196,011,196,011,196,011,217,011,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,097,011,110,011,032,015,111,011,114,011
DATA 105,011,103,011,105,011,110,011,097,011,108,011,032,015,112,011
DATA 114,011,111,011,103,011,114,011,097,011,109,011,032,015,098,011
DATA 121,011,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,100,011,111,011,110,011,032,015,115,011,099,011
DATA 104,011,117,011,108,011,108,011,105,011,097,011,110,011,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,196,014,196,014,196,014,196,014,196,014
DATA 196,014,196,014,196,014,196,014,196,014,196,014,196,014,196,014
DATA 196,014,196,014,196,014,196,014,196,014,196,014,196,014,196,014
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,111,010,110,010,101,010
DATA 032,015,109,010,111,010,109,010,101,010,110,010,116,010,044,010
DATA 032,015,112,010,108,010,101,010,097,010,115,010,101,010,046,010
DATA 046,010,046,010,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,196,014
DATA 196,014,196,014,196,014,196,014,196,014,196,014,196,014,196,014
DATA 196,014,196,014,196,014,196,014,196,014,196,014,196,014,196,014
DATA 196,014,196,014,196,014,196,014,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
END SUB